home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / gg.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  386 b   |  22 lines
  1. on exitFrame
  2.   global act
  3.   if act = 0 then
  4.     HotSpots(2, 15, "..\som\acessori.wav")
  5.   end if
  6.   set the locH of sprite 22 to the locH of sprite 22 - 4
  7.   if the locH of sprite 22 < -226 then
  8.     set the locH of sprite 22 to 640 + 226
  9.   end if
  10.   updateStage()
  11.   Loopframe()
  12. end
  13.  
  14. on mouseUp
  15.   global act
  16.   if act = 1 then
  17.     set act to 0
  18.     onVis(9, 15)
  19.     InVis(16, 21)
  20.   end if
  21. end
  22.